63000 PRINT"[147]DATAMAKER DECIMAL BY DAVID PANKHURST":POKE53281,0
63010 INPUT"MEMORY START, END, AND 1ST LINE NUMBER";AS,AE,LS:X=63030
63020 X$="RE[211]:F[207]I=0TO-1ST[197]-1:R[197]X$:I=V[193](X$)=-1:N[197]:X="+STR$(AS)+":D[193]-1":GOTO63070
63030 X$="R[197]Y:IFY<>999T[200]P[207]X,Y:X=X+1:G[207]"+STR$(LS):X=63040:GOTO63070
63040 X$="RE[212]":X=63050:GOTO63070
63050 FORI=0TO6:X$=X$+RIGHT$(STR$(1E7+PEEK(AS)),3)+",":AS=AS+1:I=I-(AS>AE)*9
63060 NEXT:X$="D[193] "+LEFT$(X$,LEN(X$)-1):X=63090
63070 PRINT"[147]"LS;X$:PRINT"AS="AS":AE="AE":LS="LS+10":G[207]"X"";:POKE631,13
63080 POKE632,13:POKE198,2:END
63090 IFAS<=AETHEN63050
63100 X$="D[193] 999":X=63110:GOTO63070
63110 X=63000:INPUT"READY TO DELETE";X$
63120 PRINT"[147]"X:PRINT"X="X+10":G[207]63120";:POKE631,13:POKE632,13:POKE198,2:END